home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / PCWK-txt / Antyspam / Spam Spade 1.14 / spade114.exe / {app} / startup.sl < prev   
Encoding:
Text File  |  2003-10-03  |  2.5 KB  |  127 lines
  1. % -*-C-*- Example Sam Spade startup file
  2. % Documentation on the syntax used here is, ah, sparse. See the end
  3. % of this file
  4.  
  5. % Default action is whois, using Magic lookup regardless of setting
  6. define ss_mac_default()
  7. {
  8.   ss_whois(ss_getinput(), "Magic");
  9. }
  10.  
  11. define ss_mac_f2()
  12. {
  13.   MessageBox("Title", "Hello World!", 0);
  14. }
  15.  
  16. define ss_mac_f3()
  17. {
  18.   ss_write("Hi Mom!");
  19. }
  20.  
  21. define ss_mac_f4()
  22. {
  23.   ss_addparagraph("test@localhost.invalid", "Tag", "Hello World");
  24. }
  25.  
  26. define ss_mac_f5()
  27. {
  28. }
  29.  
  30. define ss_mac_f6()
  31. {
  32. }
  33.  
  34. define ss_mac_f7()
  35. {
  36. }
  37.  
  38. define ss_mac_f8()
  39. {
  40. }
  41.  
  42. define ss_mac_f9()
  43. {
  44. }
  45.  
  46. define ss_mac_f11()
  47. {
  48. }
  49.  
  50. define ss_mac_f12()
  51. {
  52. }
  53.  
  54. define abuse_lookup(domain, message)
  55. {
  56.   variable address;
  57.   address = ss_abusenet(domain);
  58.   if(strlen(address) > 3) {
  59.     ss_addparagraph(address, domain, message);
  60.   }
  61. }
  62.  
  63. define ss_ab_clickthrough(dom, addr)
  64. {
  65.   abuse_lookup(dom, "Web clickthrough to your site");
  66. }
  67.  
  68. define ss_ab_dialup(dom, addr)
  69. {
  70.   abuse_lookup(dom, "Apparently sent using your dialup");
  71. }
  72.  
  73. define ss_ab_dns(dom, addr)
  74. {
  75.   abuse_lookup(dom, "Apparently using your DNS service");
  76. }
  77.  
  78. define ss_ab_dropbox(dom, addr)
  79. {
  80.   abuse_lookup(dom, "Using " + addr + " as a dropbox");
  81. }
  82.  
  83. define ss_ab_misc(dom, addr)
  84. {
  85.   abuse_lookup(dom, "...");
  86. }
  87.  
  88. define ss_ab_relay(dom, addr)
  89. {
  90.   abuse_lookup(dom, "This was apparently relayed through your mailserver\r\nIf this wasn't sent by an authorised user you should secure your server. You can find some hints at http://maps.vix.com/tsi/");
  91. }
  92.  
  93. define ss_ab_this(dom, addr)
  94. {
  95.   ss_addparagraph(addr, dom, "...");
  96. }
  97.  
  98. define ss_ab_webhost(dom, addr)
  99. {
  100.   abuse_lookup(dom, "You apparently host the website advertised");
  101. }
  102.  
  103. % Sam Spade uses S-Lang as a scripting language
  104. % See http://www.s-lang.org/
  105. %
  106. % stderr, stdout won't work - use MessageBox, ss_write or ss_error
  107. % instead
  108. % 
  109. % Application specific calls include:
  110. %
  111. % int MessageBox(string title, string message, int style)
  112. % void ss_ping(string target, int count)
  113. % void ss_whois(string query, string server)
  114. % void ss_finger(string user, string host)
  115. % void ss_dns(string query)
  116. % void ss_dig(string query, string server)
  117. % void ss_vrfy(string user, string host)
  118. % void ss_time(string host)
  119. % void ss_fasttrace(string host)
  120. % void ss_slowtrace(string host)
  121. % string ss_getinput()
  122. % string ss_getnameserver()
  123. % void ss_addparagraph(string email_address, string tag, string message)
  124. % string ss_abusenet(string domain)
  125. % void ss_write(string)
  126. % void ss_error(string)
  127.